inherited sprServiceTraits: TsprServiceTraits
  Left = 368
  Top = 227
  Caption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1087#1088#1080#1079#1085#1072#1082#1086#1074' '#1091#1089#1083#1091#1075
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel2: TPanel
    Top = 25
    Height = 529
    inherited PageControl1: TPageControl
      Height = 529
      inherited tsTab: TTabSheet
        inherited GroupBox3: TGroupBox
          Height = 501
          inherited dbgRefer: TDBGridEh
            Height = 484
            Columns = <
              item
                EditButtons = <>
                FieldName = 'ID'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'TRAITNAME'
                Footers = <>
                Width = 165
              end
              item
                EditButtons = <>
                FieldName = 'CODE'
                Footers = <>
              end>
          end
        end
      end
      inherited tsForm: TTabSheet
        inherited GroupBox2: TGroupBox
          Width = 305
          Height = 140
          object Label1: TLabel [0]
            Left = 8
            Top = 30
            Width = 50
            Height = 13
            Alignment = taRightJustify
            AutoSize = False
            Caption = #1048#1044
          end
          object Label2: TLabel [1]
            Left = 8
            Top = 52
            Width = 50
            Height = 13
            Alignment = taRightJustify
            AutoSize = False
            Caption = #1055#1088#1080#1079#1085#1072#1082
          end
          object Label3: TLabel [2]
            Left = 8
            Top = 74
            Width = 50
            Height = 13
            Alignment = taRightJustify
            AutoSize = False
            Caption = #1050#1086#1076
          end
          inherited pnlButtons: TPanel
            Top = 107
            Width = 301
            inherited SpeedButton1: TSpeedButton
              Left = 102
            end
            inherited SpeedButton2: TSpeedButton
              Left = 204
            end
          end
          object DBEditEh1: TDBEditEh
            Left = 62
            Top = 28
            Width = 55
            Height = 19
            AlwaysShowBorder = True
            Color = clBtnFace
            DataField = 'ID'
            DataSource = dscRefer
            EditButtons = <>
            Flat = True
            ReadOnly = True
            TabOrder = 1
            Visible = True
          end
          object DBEditEh2: TDBEditEh
            Left = 62
            Top = 50
            Width = 237
            Height = 19
            AlwaysShowBorder = True
            DataField = 'TRAITNAME'
            DataSource = dscRefer
            EditButtons = <>
            Flat = True
            TabOrder = 2
            Visible = True
          end
          object DBEditEh3: TDBEditEh
            Left = 62
            Top = 72
            Width = 237
            Height = 19
            AlwaysShowBorder = True
            DataField = 'CODE'
            DataSource = dscRefer
            EditButtons = <>
            Flat = True
            TabOrder = 3
            Visible = True
          end
        end
      end
    end
  end
  inherited GroupBox1: TGroupBox
    Height = 0
  end
  inherited dsRefer: TpFIBDataSet
    UpdateSQL.Strings = (
      'UPDATE SERVICE_TRAITS'
      'SET '
      '    TRAITNAME = :TRAITNAME,'
      '    CODE = :CODE'
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    DeleteSQL.Strings = (
      'DELETE FROM'
      '    SERVICE_TRAITS'
      'WHERE'
      '        ID = :OLD_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO SERVICE_TRAITS('
      '    TRAITNAME,'
      '    CODE'
      ')'
      'VALUES('
      '    :TRAITNAME,'
      '    :CODE'
      ')')
    RefreshSQL.Strings = (
      'select * from SERVICE_TRAITS'
      ' WHERE '
      '        SERVICE_TRAITS.ID = :OLD_ID'
      '    ')
    SelectSQL.Strings = (
      'select * from SERVICE_TRAITS')
    object dsReferID: TFIBIntegerField
      DisplayLabel = #1048#1044
      FieldName = 'ID'
    end
    object dsReferTRAITNAME: TFIBStringField
      DisplayLabel = #1055#1088#1080#1079#1085#1072#1082
      FieldName = 'TRAITNAME'
      Size = 120
      EmptyStrToNull = True
    end
    object dsReferCODE: TFIBStringField
      DisplayLabel = #1050#1086#1076
      FieldName = 'CODE'
      Size = 16
      EmptyStrToNull = True
    end
  end
end
